const
  sBox                      : array[0..255] of byte = (
    $32, $D4, $EC, $9C, $B3, $BD, $2E, $EA, $C0, $4F, $15, $10, $64, $07, $0F, $E9, 
    $8A, $32, $EF, $D8, $CB, $2A, $F3, $4B, $9E, $69, $2E, $C9, $EF, $CD, $B4, $53, 
    $7E, $70, $D5, $38, $6F, $DD, $18, $B8, $FD, $A1, $E6, $20, $45, $66, $1A, $16, 
    $6E, $1F, $C8, $61, $DD, $02, $09, $66, $1B, $42, $91, $01, $81, $D1, $6B, $97, 
    $18, $A0, $11, $84, $01, $0E, $BC, $2A, $61, $9F, $B6, $59, $C4, $1C, $F2, $DB, 
    $47, $99, $41, $49, $1A, $3B, $DD, $6F, $28, $8B, $40, $06, $DF, $C2, $4B, $72, 
    $83, $60, $65, $BE, $75, $EA, $03, $25, $55, $BE, $A9, $C5, $04, $2C, $8E, $65, 
    $C3, $6E, $37, $4D, $16, $23, $D4, $AF, $1A, $4C, $34, $28, $76, $15, $83, $2E, 
    $1A, $CE, $4B, $A5, $6B, $F3, $47, $D6, $98, $14, $14, $79, $39, $FE, $D4, $9F, 
    $68, $8E, $40, $AF, $FA, $EB, $C3, $B7, $9A, $2F, $A0, $B9, $C3, $A2, $38, $DA, 
    $0A, $2E, $F0, $7D, $17, $8A, $5A, $B0, $3D, $5E, $82, $87, $AC, $60, $A3, $3B, 
    $8B, $0E, $A3, $37, $87, $AA, $F4, $58, $A3, $7F, $E7, $12, $5B, $AB, $7E, $4B, 
    $54, $E4, $38, $0F, $40, $F5, $80, $66, $A8, $FA, $B1, $09, $B9, $81, $CC, $AF, 
    $59, $27, $5B, $2D, $0D, $57, $25, $A8, $88, $30, $A3, $8B, $E2, $D1, $63, $18, 
    $CD, $7E, $B5, $A5, $43, $63, $70, $EF, $95, $ED, $95, $1B, $D2, $F4, $14, $34, 
    $D0, $35, $19, $60, $71, $CF, $88, $02, $EA, $D7, $A1, $86, $17, $1A, $E3, $9C);
